The X-Philes (2nd Revision)/The X-Philes Number 1 (1995).iso/xphiles/hp48_1/bodeplot

Text File | 1995-03-31 | 12KB | 201 lines

Subject: Bode Plotter (Good One)


        Bode Plotter for the HP48sx


    The following is an ASC-> encoded program to display bode
plots on an HP48SX. Download the program, press ASC->, then
type 'BODE' STO. Directions are included below.

--------------------8<--------------------8<---------------------

%%HP: T(3)A(D)F(.);
"69A20FF77C71000000501458441445508E920917003392020000830002000000
0000000000002910037048327500900000000000000819100461761709009000
0000000000061910004216773410900000000000000419100947096872209000
0000000000021910028525411630900000000000000019100966156327509099
9000000000008910072091907090909990000000000069100598616473419099
9000000000004910054098947722909990000000000029100713641760639000
0000000000000010000387584075909990000000000020100212127769989099
9000000000004020038171958040109990000000000060200774320586111099
9000000000008020053209931222100000000000000010200449646249431000
0000000000021020030042985674100000000000000410200547970841851000
0000000000061020067805317656100000000000000810200583962236071000
0000000000002020070259851737100000000000000220200966757084571000
0000000000042020009267897267100000000000000620200905430972671000
0000000000082020072605087457100000000000000030200785837017371000
0000000000023020082105532607100000000000000430200629681756561000
0000000000063020060831452185100000000000000830200226368226741000
0000000000004020097480458843100000000000000240200277812321221000
0000000000044020089062114511100000000000000640200371438758301000
0000000000084010020704725368900000000000000050100916842913159000
0000000000025010029537178962900000000000000450100815889583809000
0000000000065010027590867519800000000000000850100644495769278000
0000000000006010042062771684800000000000000260100884638255318000
0000000000046010049765457216700000000000000660100512102953486000
0000000000086010052329350487500000000000000070100646483275054000
0000000000027010061162926822300000000000000470100069134603712000
0000000000067010030821074114100000000000000870000919563394109000
0000000000008000058589613617500000000000000280000720784493163000
0000000000048000006678060282200000000000000680000539900430441000
00000000000880999294650809809000000000000000909990252801153750C2
70050D458441445508E920917003392020000830002000000000000000000290
0043075595020690000000000000819000234009850202900000000000006190
0057884724979100000000000000419000417198649795000000000000002190
0048879275979900000000000000019100195343897931099900000000000891
0007480940897109990000000000069100823493128912099900000000000491
0084377726895209990000000000029100891355669992000000000000000001
0021873162204309990000000000020100823224178083099900000000000401
0088653215422409990000000000060100893791381664099900000000000801
0088892084341500000000000000010100400759698965000000000000002101
0088083974343600000000000000410100062039281607000000000000006101
0022105505428700000000000000810100494496968068000000000000000201
0041559712204900000000000000220200575465599101000000000000004202
0009383538990100000000000000620200477162579711000000000000008202
0018553236952100000000000000030200875026639331000000000000002302
0051603817814100000000000000430200788447317941000000000000006302
0095460504375100000000000000830200636400425461000000000000000402
0003100196907100000000000000240200672689325671000000000000004402
0023035404318100000000000000640200477706317581000000000000008402
0084058417898100000000000000050200021257539391000000000000002502
0029045016979100000000000000450200090387969102000000000000006502
0068038796950200000000000000850200670450169902000000000000000602
0067025753931200000000000000260200049484178712000000000000004602
0000570631712200000000000000660200443254043522000000000000008602
0064548932582200000000000000070200887590969032000000000000002702
0062739932523200000000000000470200650974043332000000000000006702
0065067631733200000000000000870200227756178332000000000000000802
0060368163933200000000000000280200028441269332000000000000004802
0042422527933200000000000000680200637066679332000000000000008802
00423903879332000000000000000902004185698793320C2700407454453440
D9D20881309A5309FF306B65044230DEE324B2A22443033F06CCD20470008F14
6608FB9760147134169169146D7CF164146D5F118A136F0CA17414713517E179
1301567C0155717FCF5DE8F2D760174E7142164808CB2130CB000503505C4F44
550D9D20C8102EF9C284E204074544534AE9C284E204074544534E97C1290D1A
59C190DA19C2A2DBBF13013292CF1893E1C42328DBF1B2130C7000501424F444
5450D9D20E1632B2DF184E2020244484E202054440A132D6E201066D6E201066
339201000000000000010D6E201066D20B14563284E2010A997632DCC0284E20
305415E44E5A1BD2B166ED116DF184E2030050544872B10833284E2040584414
454563284E2050145844144597632DCC02B2DF14563284E2010A997632EFE029
3632B21303110050D424F4445450D9D20E163284E20305415E4F1AA16C9B1339
201000000000000020EEDA11C432D6E201084E1632B2DF184E2020244484E202
054440A132D6E201066D6E201066339201000000000000010D6E201066D20B14
563284E2010A997632DCC02D6E2010844E5A166ED116DF184E2030050544872B
10833284E2040584414454563284E2050D45844144597632DCC02B2DF1EF5329
3632B2130B3100406594547540D9D20E1632B0DF184E20503505C4F44584E202
024449C2A276BA184E202054440A132D6E2010A6D6E2010A64BEF1ED2A26C7D1
E97C1A92E1B7FC18DBF12ABF1E4A2051000200000000000000076BA1ED2A2387
C1E0CF1E0CF1E4A2051000200000000000000090DA1ED2A2387C1893E1C42324
BEF1ED2A26C7D133920100000000000002050FA1D6BB1E7EF1ED2A26C7D13392
0100000000000002050FA1D6BB10A132D6E2010A684E20202444D6E2010A6339
201000000000000020EEDA1E97C1A92E178BF1B7FC18DBF1DBBF1E4A20510002
00000000000000076BA1DBBF1ED2A2387C1893E1C42324BEF1B7FC18DBF12ABF
1E97C1A92E178BF1E0CF1E7EF1B7FC18DBF1DBBF1E0CF1E97C1A92E1E0CF1893
E1E0CF1DBBF1E97C1A92E1893E1AB2E147A2084E20405805142584E204005051
42584E20405844144584E20108584E20205415B2130EFE0293632B2130CA2005
01424F4254550D9D20E1632ED2A269112303A193632B21301300030050544303
39200000000000000050F100020544420339200000000000000090D100020244
420339200000000000000029D1000305415E4308BA2033920100000000000005
084E2010379C2A284E20103733920100000000000001050FA176BA1EEDA1EEDA
19C2A284E20103733920400000000000001050FA176BA19C2A284E2010373392
0700000000000001050FA176BA1EEDA150FA1B2130DC0006035D4F4F4458460D
9D20E163284E20501458441445ED2A284E205014584414458B9C1B7FC18DBF1E
EDA10A132D6E2010A684E20501458441445D6E2010A66C7D178BF14B2A23CE22
D5CE1AFE22D9D2033920200000000000063090DA1D6E2010A6DBBF1704D1B213
05BF228DBF15DF22ED2A2083324563284E2050145844144597632DCC0293632B
2130511003014E47430D9D20E163284E2050145844144584E204065945475936
32B2130E300030D4167630D9D20E163284E2050D45844144584E204065945475
93632B2130E30007024F4445444144570D9D20E163247A2084E20103784E2030
5415E484E2020244484E2020544484E2030050544BB8A184E20501424F42545B
2130D5112274328BA2054BA184E2010A9EEDA1B21304563284E20103797632DC
C0284E2050D424F4445484E20501424F44454ED2A2691124563284E201037976
32EFE023392020000000000000103392099900000000002104C5A13392020000
000000000103392099900000000002104C5A193632B2130D868"
--------------------8<--------------------8<---------------------

              INSTRUCTIONS FOR BODE PLOTTER
    First download and install the bode plot routines from
the earlier posting. Enter the BODE directory. You sould
see [BODED] [MAG] [ANG] [SMOO] in the first 4 menu entries.
An example has been preloaded so just press [MAG] to see
the magnitude plot for the tranfer function:
            H(s)=[50*(s*(1+s/10))]/[(1+s/10^4)*(1+s/10^7)]
Once the plot has completed use the arrow keys to move the
cursor around the screen. You can press [COORD] to get the
cursor coordinates. The X-coordinate is the frequency (rad/s)
in decades (e.g. x=1.5 => 10^1.5 rad/s). Tick marks are every
decade. The Y-coordinate is in decibels (e.g. y=20 => 20 dB).
Tick marks are every 20 dB. Now press [ON] to return to the
menu. Next press [ANG] to see the angle bode plot. The X-
coordinate is once again the frequency (rad/s)in decades (e.g.
x=1.5 => 10^1.5 rad/s). Tick marks are every decade. The Y-
coordinate is in degrees (e.g. y=20 => 20 degrees). Tick marks
are every 20 degrees. Press [ON] to return to the menu.

Now we will step through an example from the beginning.
Press [BODED]. A temporary menu is created and the calculator
is halted. The menu should now look like this:
[S] [EQN] [BD] [ED] [PPD] [CONT]
and if you press [NXT] you should see [ABORT]. You will now
enter the tranfer function:
      100*s/[(1+s/10)*(1+s/10^4)*(1+s/(2*10^4))]
Next store it into EQN (left shift [EQN]). After that specify a
beginning decade (0 left shift [BD]), ending decade (7 left shift
[ED]), and the points per decade (7 left shift [PPD]). The higher
PPD is, the longer the calculator will take, but a more accurate
plot will result. Now press [CONT]. If you had wished to cancel
the plot you could have pressed [NXT] [ABORT]. You will have to
wait for approx. 90 seconds for the calculator to finish its
computations. Once it is done you will hear 2 short beeps if BEEP
is enabled. As before press [MAG] to view the magnitude plot of a
band-pass filter and [ANG] to produce the angle plot. If you ever
press [ANG] and the plot is split in two (due the value returned
by the ARG function), then press [SMOO] to smooth out the plot and
press [ANG] again. Do not use [SMOO] unless the plot is split
otherwise the angle values taken from the plot will be incorrect.

CREDITS:
The bode plot routines were written entirely by Thedore W. Gregg and
are copyright 1991, EXCEPT for the SPLOT and GETC routines (originally
LPLOT and GETC) which were written first by Paul Dale and modified for
use in these programs. You have my permission to freely distribute and
use these routines for any non-profit or non-published purpose.

FOLLOWING IS PAUL DALE'S DISCLAIMER FOR LPLOT AND GETC:
------------------------------------------------------------------
As usual, this program is copyright myself, 1991 all rights
reserved but as usual, any non-profit usage of this program is ok
by me (if you want to include it in your commercial software or
publish it in a book/journal then you require my permission first
--- it is usually given).

Enjoy...
    Pauli                                                            seeya

Paul Dale               | Internet/CSnet:[e-mail]
Dept of Computer Science| Bitnet:[e-mail]
Uni of Qld              | JANET:[e-mail]
Australia, 4072         | EAN:[e-mail]
                        | UUCP:uunet!munnari!batserver.cs.uq.oz!grue
f4e6g4Qh4++             | JUNET:[e-mail]
------------------------------------------------------------------------


DISCLAIMER:
These routines are provided "as is" with no expressed or implied
warrantees. Any damage or losses caused by the use of these programs
is soley the resposibility of the user.


If you find these programs useful or have questions please drop me a
note. If you can think of any way to speed them up please do so.

---------------------------------------------------------------------------
\ Theodore W. Gregg        | The most endangered species- the honest man, /
\ MACC-Operations          | Will still survive annihilation.             /
\ 1210 W. Dayton St.       | Forming a world state of integrity,          /
\ Madison, WI 53715        | Sensistive, open, and strong.                /
\ [e-mail]      |                                   (N. Peart) /
---------------------------------------------------------------------------